Nuprl Lemma : mklist_length
11,40
postcript
pdf
T
:Type,
n
:
,
f
:(int_seg(0;
n
)
T
). ||mklist(
n
;
f
)|| =
n
latex
Definitions
False
,
A
,
A
B
,
ge(
i
;
j
)
,
P
Q
,
tt
,
(
i
=
j
)
,
if
b
then
t
else
f
fi
,
Y
,
primrec(
n
;
b
;
c
)
,
t
T
,
mklist(
n
;
f
)
,
||
as
||
,
x
:
A
.
B
(
x
)
,
P
Q
,
lelt(
i
;
j
;
k
)
,
suptype(
S
;
T
)
,
subtype(
S
;
T
)
,
int_seg(
i
;
j
)
,
ff
,
prop{i:l}
,
t
...$L
,
P
Q
,
P
Q
,
,
Unit
,
,
Lemmas
ge
wf
,
nat
properties
,
nat
wf
,
int
seg
wf
,
le
wf
,
not
functionality
wrt
iff
,
assert
of
bnot
,
eqff
to
assert
,
assert
of
eq
int
,
eqtt
to
assert
,
iff
transitivity
,
not
wf
,
bnot
wf
,
assert
wf
,
bool
wf
,
eq
int
wf
,
length
wf2
,
non
neg
length
,
length
cons
,
length
nil
,
length
wf1
,
mklist
wf
,
length
append
origin